﻿Namespace Controls.Converters
	Public Class NumericalIncrementerValueConverter
		Implements IMultiValueConverter

		Public Function Convert(values() As Object, targetType As Type, parameter As Object, culture As Globalization.CultureInfo) As Object Implements IMultiValueConverter.Convert
			Try
				Return CType(values(0), Double).ToString("F" & values(1))
			Catch
				Return 0
			End Try
			'Return 0
		End Function

		Public Function ConvertBack(value As Object, targetTypes() As Type, parameter As Object, culture As Globalization.CultureInfo) As Object() Implements IMultiValueConverter.ConvertBack
			'Return Nothing
			'Throw New NotImplementedException()
			Dim obj(0)
			obj(0) = CDbl(value)
			Return obj
		End Function
	End Class
End Namespace